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**F ILE**1D**OTSPOWDJ 
000000 TITTTTTITT SSSSSSSS PPPPPPPP 000000 Mab Ww DDDDDDDD JJ 
000000 TITTTTTTITT SSSSSSSS_ PPPPPPPP 000000 Ll Ww DDDDDDDD JJ 
00 00 TT SS PP PP 00 00 WW Ww OD DD JJ 
00 00 TT SS PP PP 00 00 WwW Ww DD DD JJ 
00 00 TT SS PP PP 00 00 WW Ww OD DD JJ 
00 00 TT SS PP PP 00 00 WW Ww OD DD JJ 
00 00 TT SSSSSS PPPPPPPP 00 00 WW Ww OD DD JJ 
00 00 TT SSSSSS PPPPPPPP 00 00 WW Ww OD DD JJ 
00 00 TT SS PP 00 00 WW WW WW DD DD JJ JJ 
00 00 TT SS PP 00 0O WW Ww WW DD DDB JJ JJ 
00 00 TT SS PP 00 00 WWWW WWWWw DD DD JJ JJ eeee 
00 00 TT SS PP 00 00 WWwWW WWwWwW DD DD JJ JJ eeee 
000000 TT SSSSSSSS PP 000000 Wis Ww DDDDDDDD JJJuJJJ eee 
000000 TT SSSSSSSS PP 000000 ‘wid Ww DDDDDDDD JJJJJJ eos 
LL IIIIII SSSSSSSS 
LL I1I111 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLELLLLLLLL IIIT] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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; Detailed Current Edit History 


HISTO 
DECLARA 10NS 
OTS PouDJ - double to power longword giving double result 
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OTSSPOWDJ = DOUBLE PRECISION ** INTEGER®4 power ro 16-SEP-1984 01:57:5 AX/VMS Macro V04-00 Page 1 
1-806 : 6-SEP-1984 71:38:07 EATHRTL. SRCIOTSPOUDS MAR; 1 : (1) 
-TITLE OTSSPOWDJ = DOUBLE PRECISION ** INTEGER*4 power routine 
IDENT /1-006/ ; File: OTSPOWDJ.MAR Edit: SBL1006 


LARA RAARASARALALALAAL ALLA ESE E LESSEE SEER ESET ESE RESET ECS Te ec cece acces gd 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


3* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
3* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
3* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ae ePORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


** 

® ® 
e ® 
® ® 
te ® 
- ® 
« ® 
® ® 
® ® 
® ® 
*® ® 
:* TRANSFERRED. » 
** ® 
** * 
® ® 
** ® 
°* * 
:® ® 
°® *® 
* 7 
® ® 
® ® 


ARRRARARAAAAAALALALALELALESALLASSASE LESSEE SEAS ER RESET EERE RARER RE SEER CCAS SY 


SOOoQooooooooooooooooooooooooo 
SOOooCooooooooooooooooooooooo 


FACILITY: Language support Library - user callable 
ABSTRACT: 
Double base to integer longword power. 


Floating overflow and underflow can occur. : 
Undefined exponentation can occur if base is 0 and power is 0 or negative. 


: VERSION: 01 

: HISTORY: 

; AUTHOR: 

: Thomas N. Hastings, 5-May-77: Version 01 
: MODIFIED BY: SUSAN HUBBARD AZIBERT 


COOOOOCOCOOOOSSSSOSSOSOOOCCOOOOOOSOOCOOOOOOOOOOOOOOOOOO 
DWONAUE WN SO OONAUE WIN SO ODNAU EWN 0 OONOAU EWN OOONOUS Who 


oo SOSSOSSOSSOSSSSSOSOSOOOSDSOOOOODOOOOOOOCOOOOOOOOCO 
SSSSssSsssooeoeoeooeeoSeSeSess 
SEARLE REESE PUWWWWWIWIIInononononononononony 2 2 


SOoOoQooooooooooooooooooSo 


‘om 
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ON ** INTEGER*®4 power ro 16-SEP-1 1:57:5 AX/VMS Ma v04-00 P 
Pea Current Edie History Ssep-1oRe $1:36:0F FATANTE emesOreeuns.mars1 P28* (3, 


~SBTTL HISTORY ; Detailed Current Edit History 


wm 
UO 
» 


om 
en 


Edit by eB for vo 01 of OTS$POWDJ 
- changed module name to FORPOWDJ 

version 6 = added error handler and changed formal ref from 8(AP) of? 12 (AP) 

version 8 = changed error sane aae name from MTHSERROR to MTHSSERR 

version 9 = roneves W* from MTHSSERROR, saved code with MOVZBL. 

version 10 - anged J ealetemces to MTH$SERROR to ATHSSSIGNAL - Jt 

“14 = Change no SFLAG_JACKET to MTHSFLAG_JACKET. be BA ha} at 

-001 = Update version number and copyright notice. 6-NO 
2- TAME RUPeA a8 at optgere time and bs + iy aTH. SUNDEXP™ to 

3 = Add |” to the peecr edirective., JBS 22-DEC-78 

4 = Declare seuraeha, a 979 

5 = Add handlers to ech §s$ FLTOVF and SS$_FLTDIV, and nal 
MTHS_FLOOVEMAT or MTHS_FLOUNDMAT instead, dependi ngon he context. 
Also disable IV and chen e BLBS/ASHL at EXPGTR to BBSC/ROTL for 
uniformity with OTSS$PO JAW 26-Feb-1980. 

1-006 = Use general mode aairenniils SBL 30-Nov-1981 


UB 
OR 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


SOOSGOCOCOCOCOCOSCOOCSOOOOoOOoSooSooOSO <r 
CSOOOCoQoQoQoooooooooooooooo 
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OTS$POWDJ = DOUBLE peg ctsiGn ** INTEGER*®4 power ro 16-SEP-19 1:57:5 AX/VMS Re cro V04-00 Page | 
+806 DECLARATION : orSEp-19R6 S1:aB;09 EMTS. Sardoreecusy.mar:1 °2% (3 
9 iS -SBTTL DECLARATIONS 
ee 
44 ; INCLUDE FILES: 
000 4 : MTHJACKET.MAR 3; Math jacketing macro | 
$09 Hl 3; EXTERNAL SYMBOLS: 
00008 
000 
0000 4 .DSA GBL 
4H 5 -EXTRN MTHSK —* MTHSK -FLOOVEMAT ee oo 
00 $ ~EXTRN MTHSSSIGN Mat | 
44 88 -EXTRN SS$_ PL TOVF., SS$_FLTOVF_F, ses vFLIDIV, ous! FLIDIV. F, SS$_CONTINUE 
0000 89 ; 
0000 90 ; MACROS: 
0000 91 ; 
0000 38 SCHF DEF : Define condition handler symbols. 
0000 9 SSFDEF ; Define stack frame symbols. 
0000 94 SPSLDEF ; Define program status longword 
0000 95 3 symbols. 
0000 96 
0000 97 ; 
0000 98 ; EQUATED SYMBOLS: 
0000 99 ; 
00000004 0000 100 base = 4 ; base input formal - by-value 
0000000C 0000 101 exp = 12 3 exponent intpu formal - by-value 
0000 106 3; Note: double ge de ~value violates 
0000 10 ; calling standard, bu since this 
0000 104 t routine is a code eueart routine (OTS$) 
0000 105 
0000 106; 
0000 107 ; OWN STORAGE: 
0000 108 ; 
0000 109 
0000 110; 
0000 111 ; PSECT DECLARATIONS: 
0000 V6 ; 
0000. =11 
00000000 114 -PSECT _OTSSCODE PIC,SHR,LONG, EXE, NOWRT 
i$ 142 3; program section for OTS$ code 


v 


OOoOoooooooooooooooooooo Bt 


COOCOOCOSCOCOCOCCOCOCSOOCOOOOOOOOOCOOOCOoSoOO «— 


So 


SOOQCOOCOOCOCCOOOOSOOSCSOOOOOoOooOooO 


SOOoOOOOCSOOOOSOOOCOOOCOSOSCMOOSOOOSOOSOOOOCOOSoOOoOO 


SOOOoOCOOOOOOOOOOSOOOoOoOSooOSo 
OOoOOoooooooooooooooooooSo 
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SION ** INTEGER*4 power ro 16-SEP-1984 01:57:5 AX/VMS Macro _V04-00 P 
uble to power Longuord giv o-SEP-1 984 94:38:09 EMTHRTL. SREJOTSPOWDI MAR: 1 — 


-SBTTL OTSSPOWDJ = double to power longword giving double result 


ou 


¢ 
d 


s+ 
; FUNCTIONAL DESCRIPTION: 


Double result = double base ** signed longword exponent 
The double result is given by: 


base exponent result 

any >0 product (base * 2**i) where i is each 
non-zero bit position in exponent 

0 1.0 

0 Undefined exponentation 

0 1.0 

0 1.0 / product (base * 2**j) 


v AUYV 
o ooo 
A 


where i is each non-zero bit position 
in ‘exponent: 


Al 
oo 
AA 


3 Floating overflow can occur on either of the two MULD's. If this 

: ghee when the exponent is less than zero, the ougept tes is caught by 
3 a local condition handler named EXC_HNDLR_UNDER, which sets the result 
3 to 0.0 and either signals MTH$_FLOUNDMAT Tif FU is enabled in the 

3 caller's PSW) or continues at POWDJX. If it happens when the exponent 
s is greater than zero, the exception is My by a local condition 
: handler named EXC_HNDLR_OVER, which sets t 


operand (-0.0) and signals MTH$_FLOOVEMAT. 
Floating overflow and floating divide by zero can occur on the DIVD. 
These exceptions are caught by EXC_HNDLR_OVER, which sets the result to 
the reserved operand (-0.0) and signals ATH$_FLOOVEMAT. 


Undefined exponentiation occurs if base is 0 and 
exponent is 0 or negative. 


; CALLING SEQUENCE: 

Power.wd.v = OTS$POWDJ (base.rd.v, exponent.rl.v) 
; INPUT PARAMETERS: 
: NONE 


e result to the reserved 


; IMPLICIT INPUTS: ; 
; The setting of FU in the caller's PSw. 


; OUTPUT PARAMETERS: 
; NONE 


a i ee ee ee a ee ee me ek dd dd dd 
FAN 9 OD NOUS WIN  O ODNAU EWN HO CBNAMN EWN @ O ODNOAUE WN OOONAULS Wii OO 


; IMPLICIT OUTPUTS: 
NONE 
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806 OTS$POUD = double to power longuord giv aes 1 MTHRTL.SRCJOTSPOWDJ.MAR; 1 use (4) 


] 
: 9 AX/VMS Mac | 
; FUNCTION VALUE: 
Double base ** signed longword exponent 
SIDE EFFECTS: 


Signals MTH$_FLOOVEMAT if Hheoteng overflow occurs on either of the two 
MULD's when exponent > 0, or if floating overflow or divide by zero 
occurs on the DIVD 


Signals MTHS _FLOUNDMAT if floating overflow occurs on either of the two 
ULD's when ex onent <0 and caller has FU enabled. 

SIGNALS MTHS_UNDEXP (82 = ° UNDEFINED EXPONENTATION') if 

base is 0 and exponent is 0 or negative. 


001C eENTRY OTSSPOWDJ, “M<R2, R3, R4> 
; Disable re overflow. (Occurs on 

maximum negative exponent.) 

Translate exceptions to 


MTHS_FLOOVEMAT 
RO/ 


Oooo 
SoOQOQOCQCOQOQOOCOOOOoOoOOoOOooOooOoO 
COOOCCCOCQOOCooQoooooooooooo 


DONNY TH HHH HH HMAMOMOLOOCOSCOCCOMD ONNNWW "9 GAAMNMNOOOOOOCOCOCOOOOOOOOCOOO 


6D 66°AF 9E MOVAB B*EXC_HNDLR_OVER, (FP) 


MARSDIPINPONPINININPININD 9 2 MF OOOCODOOGOOCOO OOOO OOOO W OO 000000090909 090900 SING 
MOO NAVE WIN 9 OONAU SW OS OONAU EWN SO OD NAUE WN O OONAU EWN OOONOU 


PRIPQPOPIPDNININYNINYININININPININININININIPININININPININININININID) 9 9 9 PP OP OP OS SS SS SS 


0 
0 
0 
0 : 
0 3 
0 3 
000 3 " 
50 70 000 MOVD #1, RO : RO/RT = initial result 
52 04 AC 70 4 MOVD base(AP), R2 3; R2/R3 = base 
54 OC AC 00 00 MOVL exp(AP), R4 : R4 = exponent 
14 001 BGTR EX :; branch if exponent > 0 
6D S7°AF 9E 001 MOVAB B*“EXC_HNDLR_UNDER, (FP) ; Translate exceptions to 
001 ; MTH$_FLOUNDMAT. 
52 73 001 TSTD R2 ; test base 
2c 613 001 BEQL UNDEF INED : undefined 0**0 or 0**(-n) 
54 54 cf 001 MNEGL RG, RG : R4 = texponenti 
26C1 oat BEQL POWDJX ; if exponent is 0, return RO = 1.0 
002 3+ 
O8s ; Exponent is > 0 or (exponent is =< 0 and base is not = 0 -= use ‘exponent:) 
003 > 
OB 54 &4 00 EXPGTR: BBSC #0. R4, PARTIAL : branch if texponent: is odd 
54 54 FF BF 9C 002 SQUAR: ROTL #1, R4, R4 : R4 =_lexponenti/2 
52 64 43 SQUAR1: MULD R2, R2 ; R2/R3 = current power of base 
0 3; Floating overflow will trap or fault 
88 ; and signal SSS_FLTOVF or SSS_FLTOVF_F. 
F5 54S 85 BLBC R4, SQUAR 3; branch if next bit in ‘exponent: is 0 
0 3+ 
00 ; Here when bit i of ‘exponent: is a 1. : 
; Partial result = partial result * (base * 2**j) 
0 e 
0 PARTIAL: 
50 $2 § 0 MUL R2, RO ; RO/R1 = new partial result 
_ Se Se FF BF 78 0 ASHL = #1, RG, RG : R4 = texponenti/2 
FO BNEQ SQUAR1 ; loopback if more exponent bits are 1 
Oc AC DS TSTL exp (AP) ; test sign of exponent 


4@ UNDEF INED: 
50, 01 .0F 29 4 $ 


re oo Se RO/R1 = reserved floating operand 
00000000'GF 01 FB 


ASH #15, #1, RO 
MOVZBL #MTHSK_UNDEXP, =-(SP) Indicate undefined exponentiation. 
CALLS #1, G*ATHSSSIGNAL convert to 32-bit condition code 


: and SIGNAL MTHS_UNDEXP 
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806 OTS$PONB, = double to power longuord giv aes 7 91:38:09 UMTMRTL. SREJOTSPOUDY MAR: 1 — (2) | 
} 
08 14 BGTR POWDJX : if exponent > 0, return RO 
6D 66°AF 9E § MOVAB B*EXC_HNDLR_OVER, (FP) ; Translate exceptions to | 
50 08 50 £67 4 5 DIVD3 RO, #1, RO + RO/RT = 1.0/result 
04 3 POWDJX: RET ; return, result in RO | 
4 3+ 
o4 3 : Undefined exponentation error - 0**0 or 0**(-n) 
04 41 ° 
04 
Se 
4 
4 


Note: 2nd arg not needed since no JSB OTSS 
is possible. 


RET return 


Be 

; The following handler is established to process exceptions which imply 

; underflow of the final result (floating overflow in either of the two MULD's 
3; when Hy. <0). On the occurrence of such an exception, the handler signals 
3; MTHS_FLOUNDMAT. 


EXC_HNDLR_UNDER: 
-@ORD “M<R2, R3, R4> ; Entry mask 
SETUP ; Set up RO:R3 and identify condition. 
3; Return only if FLTOVF or FLTDIV. 
BBC #PSLSV_FU, SFSW_SAVE_PSW(R2), CON_U 
; Branch Tf caller has not enabled FU. 
Rey eel. Te ene. RG ; Report MTH$_FLOUNDMAT, not SS$_FLTOVF. 


28 
1—E 04 A2 (06—CéE 
54 OO°8F 9A 

oc 


3+ 
; The following handler is established to process exceptions which as. 
; overflow of the final result (floating overflow in either of the two MULD's 

3: when exp > 0, floating overflow in the DIVD, or age aan divide by zero in the 
; DIVD). On the occurrence of such an exception, the handler signals 

3; MTHS_FLOOVEMAT. 


MEW OOO NAUE WIN $$ OS OD NAMUE WN OOONAUS 


EXC_HNDLR_OVER: 
.QORD  *M<R2, R3, R4> 
BSBB ETUP 


; Entry mas 
$ 


: k 
3; Set up RO:R3 and identify condition. 
; Return only if FLTOVF or FLIDIV. 


OOCCGCOOCOOSOOCSCSOOOOOOCOO SOOO OCOOSOOOOCOOOOOOoOoOOO 


SOOOOOOOOCOOCOCOCSOSOOSOOOCOOOOCOSOOOOSOOOOOOOCOC OOOO OCO OOOO OOO OOOO OOOOO 
DOO 09 SII SNP APAAAAAAAAAAAAAA AA MAMMA MMU 


AMI NUP IMM SD SB COPAPGAOSAOAOAA SOO DO NNN NNN NNO OA AAD NNN NNN SIOOPOPOM OO 


COC909 09696909 6969 ISIN NNN NSN DDD DODO AAD TUTTI 


POPDPIPIPIPINIPINIPONIPIDNNINYPIPYNIPYNINININININPINININININIPUNPININIPIPONPPoNoPonyd 


8 
78 9 ASHL #15, #1, RO ; Make the default result -0.0. 
54 00°SF 9A 0 MOVZBL #MTHSK_FLOOVEMAT, RG =: Report MTH$_FLOOVEMAT, not SS$_FLTxxx. 
10 A2. DD § DO_SIG: PUSHL SFSL_SAVE_PC(R2) ; Report caller's PC, not exception PC. 
54 DD 00 PUSHL 4 ; Report MTH$_xxx, not SS$_xxx. 
00000000"GE 02 FB 4 CALLS #2, G*MTHSSSIGNAL > Signal the Condition. 
OC A3 7D 5 CON_U: MOVQ RO, CHFSL_MCH paves (as) ; If continued, restore RO and Ri. | 
50 00° 00 $ MOVL S*#SS$_CORTINOE, R ; Continue from the original exception. 
04 DO_RET: RET ; Exit from handler. 


52 
0000° 8F 


0000 * 8F 


0000 ' 8F 


0000* 8F 


08 A2 
52 


04 
04 


04 


04 


04 


97 
04 


ors 


OOQOOCoooooooooooo°oo 
sO © 000.00 0000 09 00 09 00 09 0D GD CD CD CD CD 


FINO OOAAAAAAAAAAAO 


Nee eS S MS QOOOOOOOCOCOCOOOOOoOOODO 
OOWONA UNE WN O OD NOUS WN 0 OONOAOU SE Ww 


0 


+ 


Commo 
FLTO 
ones 
eau) 


DO_RSB: 
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$9 


MTHRTL.SR J.MAR; 1 


n getup routine for handlers. Returns normally if exception was FLTOVF, 

VF _F, F Jerv. or FLTDIV_.F. If the exception “qe a) Se else, it 

utés a RET g REST EN an exit from the handler wi vale is 

gee to §$ NAL. In the case of a noreal return (FLTOVF, FLTOVE_F, 
IV, or FLTDIV. F) it sets up RO:R35 as follows: 


: address of establisher's frame 
R35: address of mechanism array 


CLRQ RO : Set default result to 0.0. 
mMOVa CHFSL_SIGARGLST(AP), R2 ; Re = address of signal array 


R35 = ,bceress of mechanism array 

CMPW CHFSL_SIG_NAME(R2), wsss’ ghey 

A as it a floating overflow trap? 
BEQL DO_RSB Be ranch if yes. 
CMPW CHFSL_SIG_NAME(R2), #SS$_ PLrow F 

H Or a floating overflow fault? 
BEQL DO_RSB Branch if yes. 
CMP CHFSL_SIG_NAME(R2), #SS$_ FLTDIV 

A Or a floating divide by zero trap? 
BEQL DO_RSB Branch if yes. 
CMPW CHFSL_SIG_NAME(R2), #SS$_ piety F 

3 Or a Floating divide by zero fault? 
BNEQ DO_RET : None of the above: return from handler 


with = 
MOVAB B*POWDJX, CHFSL_SIG _NAMES4¢R3) 
; Change return PC to POWDJX. 
MOVL CHFSL_MCH_FRAME(R3), R2 ; R2 = address of establisher's frame 
a. : Return. 
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Symbol table =SEP=-1984 11:28: 
BAS 
CRPSL_MCH_ R 
CHFSL_MCH_SAVRO= 
CHF SL-SIGARGLST 
CHFSL_SIG_NAME 
CON_U R 
DO_RET R 
DO_RSB R 
p0_S1G R 
EXC_HNDLR_OVER R 
EXC_HNDLR_UNDER R 
EXP s 
EXPGTR R §¢ 
MTHSS$SIGNAL eeneeere =X 0 
MTHSK_FLOOVEMAT teeereee xX 00 
MTHSK_FLOUNDMAT teeeeeee X 00 
MTHSK_UNDEXP teereene x 00 
$$ J 44 44 RG 0 
PARTIAL QOOOOO2F R 0 
J 00000046 R 0 
PSLS$V_FU 00000006 
SETUP ais 4 R 02 
SFSL_SAVE_PC 0000001 
SFSW_SAVE_PSW = 000000 
SQUAR 00000024 R 02 
ARI 00000029 R 02 
SS$_CONTINUE eeeereeer xX 00 
SSS_FLTDIV geeeeree x 00 
SSS_FLTDIV_F eeeereee =X 00 
SS$_FLTOVF eerereee xX 00 
SS$_FLTOVF _F eeereeee =X 00 
UNDEF INED 00000047 R 02 
po wmaorneocmme sm vescan + 
: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
~ OOS -« 00000000 <( 0.) 00 ¢ O.) NOPIC USR CON LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 00000000 ( 0.) O1¢ +1.) NOPIC USR CON ABS LCL NOSHR EYE RD WRT NOVEC BYTE 
_OTSSCODE 00000086 ( 182.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
bi ciuisardtasthiciniatacetinnaine iittala 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 33 0:00:00.11 8 :00:8 56 
Command processing 140 0:00: ts 0:00:05.89 
Pass 136 0: ‘ 0:00:08. 
Symbol table sort 8 Q: 12 0:00:00. 
Pass 2 7 0: " :00:03. 
gyecet table sutout = 4 °: 04 :00:¢ “4 
sect synopsis outpu : . :00:00. 
Reoneereterenne to oa § : ¥ 5 :00:00.0 


H 14 
YAI“ii Racro Run Statistics ~ OUBLE PRECISION e* INTEGERS4 power ro 1¢-S60=1984 01:50:50 PAHANTE SRESCrEPGubo.mans1 P28" (2 
Assembler run totals 389 00:00:03.93 00:00:18.54 


The working set Limit was 900 pages. 
9162 bytes (18 pages) of virtual memory were used to bur ver the intermediate code. 
There were 10 pages of symbol table , 8Pace allocat f. : hold 06 non-local ~ local symbols. 
source Lines were read in Pass 1 recuse ng_ 15 object records in Pass 2. 
1 pages of virtual memory were used to defi ne 10 macros. 


toe roe te meme mow acne sare amas $ 


! ; Macro _library statistics ! 


eremecter ena se seem nennewnnet 


Macro Library name Macros defined 
LS255SDUAZB:(SYSLIBISTARLET.MLB;200 _ 
148 GETS were required to define 6 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSPOWDJ/OBJ=OBJ$:OTSPOWDJ MSRCS$:MTHJACKET/UPDATE=(ENHS:MTHJACKET) +MSRC 


2 


a 
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VAX/VMS V4.0 ND PROPRIETARY 


